home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene 96
/
Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso
/
misc
/
coding
/
vesacode
/
cutzeros.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-01-28
|
1KB
|
45 lines
{$A+,B-,D-,E-,F-,G+,I+,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,Y-}
{$M 16384,0,655360}
{ written by zÅ∩ / LiZARD }
{ ohne Fehlerbehandlung }
program cutzeros;
var datei : file; { Dateihandle }
buffer : array[1..64000] of byte; { Dateiinhalt }
name : string; { Dateiname }
aktpos : word; { Laufvariable für Nullsuche }
begin
writeln('CutZeros 1.0 by zan');
if paramcount<>1 then { Parameterzahl ok ? }
begin { nein, Rückmeldung }
writeln(#10#13' Syntax: CutZeros File[.COM]'#10#13);
halt;
end;
name:=paramstr(1); { Dateinamen holen }
if pos('.',name)=0 then { ohne Suffix ? }
name:=name+'.COM'; { ja, anhängen }
write('Bearbeite ',name,' ...');
assign(datei,name);
reset(datei,1); { Datei öffnen }
blockread(datei,buffer,64000,aktpos);{ Daten einlesen }
close(datei); { und wieder schließen }
write(aktpos:5,' Bytes');
while buffer[aktpos-1]=0 do { Nullen abschneiden }
dec(aktpos);
write(' ==> ',aktpos:5,' Bytes');
rewrite(datei,1); { Datei löschen }
blockwrite(datei,buffer,aktpos); { neue Daten schreiben }
close(datei); { und schließen }
end.